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1080 'IJIH J Yes -No *l*9 

1010 '================= ygjfi ==================== 

1820 CLEAR 2000:MAXFILES=2 

1830 MX=20:LN=8:KJ=0 

1040 DAI*=" « VjI'jJ Yes -No *i«>9 » 

1050 LN=4:KJ=1 ' (*) MSX-DOS2=3 Inf iintVT 1 D/ra^T" OflVf IT t-i 

1060 DIM Q*(MX,LN) ,Y(MX) ,N(MX) 

1070 A$="": INPUT "Xf-fiM i'7.771? (y/n)";A$ 

1080 IF A*<>"y" AND A$<>"Y" THEN INPUT "Filename =" ;QF*:TS=0:G 

0T0 1760 

1090 '============= if"-i'?-7 UT s JL =============== 

1100 SCREEN 0:IF KJ=1 THEN CALL KANJI0 

1110 WIDTH 32:C0L0R 15,4,7:CALL CLS 

1120 PRINT:PRINT "Editor Menu" 

1130 PRINT "ltedit 2:1 ist" 

1140 PRINT "3:load 4:save" 

1150 PRINT "5:test 6:quit" 

1160 INPUT CM 

1170 ON CM GOTO 1190,1310,1450,1570,1700,1720 

1180 BEEPrGOTO 1160 

1190 PRINTsPRINT ":edit: mode" 

1200 INPUT "number " ;NM 

1210 IF NM<1 OR NM>MX THEN BEEP:G0T0 1200 

1220 FOR 1=1 TO LN 

1230 PRINT "Line ";I:PRINT " >" ;Q$ (NM , I ) 

1240 Q$="":LINE INPUT ">";Q$:IF Q$<>"" THEN Q$(NM,I)=Q$ 

1250 NEXT I 

1260 PRINT "branch YES :";Y(NM) 

1270 Y*="": INPUT Y*:IF Y$<>" " THEN Y (NM) =VAL < Y$) 

1280 PRINT "branch NO :";N(NM) 

1290 N*="":INPUT N$:IF N$<>"" THEN N (NM) =VAL <N$> 

1300 GOTO 1120 

1310 PRINT:PRINT " : 1 i 5t : mode" 

1320 INPUT "number " ;NM 

1330 IF NM<1 OR NM>MX THEN BEEP:G0T0 1320 

1340 PRINT "Number:" ;NM;" Yes : " ; Y (NM) ; " No:":N(NM) 

1350 FOR J=l TO LN:PRINT " : " ;Q$ (NM , J) :NEXT J 

1360 PRINT "(is connected with)" 

1370 FOR 1=1 TO MX 

1380 IF YCDONM AND N ( I ) ONM THEN 1420 

1390 PRINT "Number:" ;I;" Yes:";Y(I);" No:";N(I) 

1400 FOR J=l TO LN:PRINT " : " ;Q* ( I ,J) :NEXT J 

1410 PRINT "(hit any key) " :DM*=INPUT$( 1 ) 

1420 NEXT I 

1430 PRINT "(end) " 

1440 GOTO 1120 

1450 PRINT:PRINT ":load: mode" 

1460 FL*="": INPUT "Filename =" ;FL$ 

1470 IF FL$="" THEN 1560 

1480 OPEN FL$+".QUE" FOR INPUT AS #1 

1490 LINE INPUT #1 ,TM$ 

1500 PRINT "title:(";TM*;")" 

1510 FOR 1=1 TO MX 

1520 FOR J=l TO LN:LINE INPUT #1 ,Q$( I , J) :NEXT J 

1530 INPUT #1,Y(I) : INPUT #1,N(I) 

1540 NEXT I 

1550 CLOSE #1 

1560 GOTO 1120 

1570 PRINT:PRINT ":save: mode" 

1580 FL*="" :INPUT "Filename =";FL$ 

1590 IF FL$="" THEN 1690 

1600 PRINT "title:(";TM$;")" 

1610 T*="":LINE INPUT "new t itl e : " ;T$ : IF T$<. 

1620 OPEN FL$+" .QUE" FOR OUTPUT AS #1 

1630 PRINT #1,TM* 



3 : 1 oad 4 : save 
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:edit: mode 
number ? 4 
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THEN TM$=T$ 



1000-1080 ffiflggE. 

1090-1180 ifV^ii-l 

-*■> 

1190-1300 T$m$CX.T<( v MU 

1310-1750 {f»WfrE— K<7)¥IJ 

1760-1850 mmx(r>T--9t%^ 

1860-2260 YES, NOx* hffl® 

2270-2290 YES, NOt^X YffiJl 

2300-2470 YES, NOx* hffl;< 

2480-2630 YES, NOfX M&7 

2640-2680 5 > 5 >*>*>A,(7)* 

77< IT—* 

2690-2750 t 1 * hfflYES£NO<7) 
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MSX-D0S2$>MSX2+$ft?~a' 
^CUAIi, TQSOfffrfllgtU 1110 
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1640 FOR 1=1 TO MX 

1650 FOR J=l TO LN:PRINT #1 ,Q* ( I , J) :NEXT J 

1660 PRINT #1,Y(I) :PRINT #1,N(I) 

1670 NEXT I 

1680 CLOSE #1 

1690 GOTO 1120 

1700 PRINT :PRINT "-.test: mode" 

1710 TS=l:GOTO 1760 

1720 PRINT :PRINT "iquiti mode" 

1730 A$="":INFUT "Really ? (y/n)";A* 

1740 IF A*<>"y" AND A*<>"Y" THEN 1120 

1750 END 

1760 '=============== M-jyaTiL ================ 

1780 IF TS=1 THEN I860 

1790 OPEN QF$+" .QUE" FOR INPUT AS #2 

1800 LINE INPUT #2,TM* 

1810 FOR 1=1 TO MX 

1820 FOR J=l TO LN:LINE INPUT #2 ,Q* ( I ,J) :NEXT J 

1830 INPUT #2, Yd) .-INPUT #2,N(I) 

1840 NEXT I 

1850 CLOSE #2 

I860 '================== D\t;,j Wt4 ============= 

1870 IF KJ=1 THEN CALL KANJI0 

1880 WIDTH 32 

1890 SCREEN 5,2 

1900 RESTORE 

1910 COLOR 15,1,1:CLS 

1920 IF KJ=0 THEN OPEN "grp:" FOR OUTPUT AS #1 

1930 FOR 1=8 TO 63:READ BfiVPDKE &H7800+I , VAL ( "&H"+D*> :NEXT I 

1940 IF TS=1 THEN 2030 

1950 LINE (0,32)-(255,95) ,4,BF 

?60 FOR 1=0 TO 255 STEP 8:LINE ( I ,32) - (1+3 ,95) ,5,BF :NEXT I 
1970 IF KJ=0 THEN 2000 

1980 COLOR 1,15:L0CATE 0,2:PRINT DAI*:LOCATE 16,4:PRINT TM* 
1990 LOCATE 1,5:PRINT "Hit space bar !":GOTO 2020 
2000 COLOR 1,15:PRESET(0,32) ,1:PRINT #1 ,DAI* :PRESET ( 128 ,64) , 1 
2010 PRINT #1,TM$:PRESET(8,80) ,1:PRINT #l,"Hit space bar !" 
2020 A$=INKEY$:IF A*<>" " THEN 2020 
2030 COLOR 15,1 ,1 :CLS 
2040 LINE (0,26)-(255,191) ,4,BF 
2050 FOR 1=0 TO 220 STEP 12:F0R J=0 TO 4 
2060 LINE (I+J,26)-(I+J+32,191) ,5 
2070 NEXT J:NEXT I 
2080 LINE <48,137)-(100,119) ,5,BF 
2090 LINE (48,134)-(100,134) ,15 
2100 LINE (48,135)-(100,135) ,14 
2110 LINE (48,136)-(100,136) ,1 
2120 LINE (5,30)-(250,99> ,1,B 
2130 LINE <6,31)-(249,98> ,15, BF 
2140 LINE (18,142)-(65,173) ,1,BF 
2150 LINE (16,140)-(63,171),15,BF 
2160 LINE <82,142)-(130,173) ,1,BF 
2170 LINE (80,140)-(128,171) ,15,BF 
2180 READ X1,Y1,X2,Y2 
2190 IF Xl=-1 THEN GOTO 2240 
2200 FOR 1=0 TO 10 

2210 LINE (X1+(X2-X1)/10*I,Y1+(Y2-Y1)/10*I)-STEP(2,2) ,1,BF 
2220 NEXT I 
2230 GOTO 2180 

2240 IF KJ=0 THEN PRESET (0 , 16) , 15 :PRINT #1,DAI* 
2250 IF KJ=1 THEN LOCATE 0,0:PRINT DAI* 
2260 COLOR 1,15 

2280 PT=1:PLAY "T140M2000S2L16" 
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2290 MN*="04EDCE-G" :MY*="05C04CEFG" 

2300 '============== ynTiL %'j94 =============== 

2310 LINE (6,96)-(249,96) ,15, BF 

2320 FOR 1=0 TO 23 

2330 COPY (6,34)-(249,98) TO (6,31) 

2340 NEXT I 

2350 FOR 1=1 TO LN 

2360 IF KJ=0 THEN PRESET (8 ,24+8*1 ), 1 :PRINT #1,Q*(PT,I) 

2370 IF KJ=1 THEN LOCATE 1,1+1 :PRINT Q*(PT,I) 

2380 NEXT I 

2390 PUT SPRITE 0,,0:PUT SPRITE 1 , ,0 

2400 IF Y(PT)=8 AND N(PT)=0 THEN 2480 

2410 PUT SPRITE , (64 , 120) , 1 ,0 :PUT SPRITE 1 , (64 , 120) , 13 , 1 

2420 A=STICK(0) :IF A=0 THEN 2420 

2430 IF A=3 THEN PT=N (PT) :PLAY MN$:MV=1 

2440 IF A=7 THEN PT=Y(PT) :PLAY MY$:MV=-1 

2450 FOR 1=0 TO 28 1 PUT SPRITE , (64+MV*I , 120) , 1 ,0 

2460 PUT SPRITE 1 , (64+MV*I ,120) , 13 , 1 :NEXT I 

2470 GOTO 2310 

2480 '============= *i«j? l)iO\l30 ================= 

2490 LINE (0,104)-(255,107) ,1,BF 

2500 PLAY "T130M8000S2L8O4G4ABO5C4DCO4B4ABO5C2" 

2510 FOR 1=0 TO 20 

2520 COPY- (0,112)-(255, 200) TO (0,108) 

2530 NEXT I 

2540 LINE (0,0)-(255,24) ,1,BF 

2550 LINE (0,0)-(255,25) ,15,BF 

2560 LINE (0,104)-(255,211) ,15,BF 

2570 COLOR 1,15 

2580 IF KJ=0 THEN PRESET (0 , 160) , 1 :PRINT # 1 , " H i t space key !" 

2590 IF KJ=1 THEN LOCATE 0,10:PRINT " > Hit space key !" 

2600 A*=INKEY*:IF A$<>" " THEN 2600 

2610 IF KJ=0 THEN CLOSE #1 

2620 IF TS=1 THEN 1100 

2630 GOTO 1900 

2640 '============ * m j*'Jff'jJ 27°7i'h ============== 

2650 DATA 44 ,24, IE ,A1 ,44,4A ,50 ,40 ,20 , IF , 12 , 1C.00 ,00 ,00 ,00 
2660 DATA 00 ,00 ,00 ,80 ,70 ,48,74 ,44 ,C4 ,48 ,78, 4E ,49 ,49 ,31 ,0E 
267(2 DATA 00 ,00 ,00 ,3F, 7F ,7F,7F ,7F ,3F ,00 ,0C ,00 ,00 ,00 ,00 ,00 
2680 DATA 00,00 ,00 ,00 ,F0 ,F0 ,F8 ,F8 ,F8 ,30 ,30 ,30 ,3F ,3F ,3F ,00 
2690 '============ ti/ m ?*-9- YES/NO ============== 

2700 DATA 18,144,23,154,23,154,23,164,23,154,28,144 

2710 DATA 34,144,34,164,34,144,42,144,34,164,42,164,34,154,40, 

154 

2720 DATA 48,164,58,159,58,159,48,149,48,149,58,144 

2730 DATA 84,164,84,144,84,144,94,164,94,164,94,144 

2740 DATA 112,144,102,154,102,154,112,164,112,164,122,154,122, 

154,112,144 

2750 DATA -1,-1,-1,-1 
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LL^*Z:<7)#p n q tZ/c*(t«^ltt L 

tz Q ztiimLsbZ'ft&X'&Z? 

?-f hJU7 VJ E<7)£#(z*'<— * 

5 «•)*-«: [V^ [E (N], [M]<7) 

4 -tti-rti^BH-tlz^^? 
tlTl^mzMJit-LX^X, *ti 



l£[z*NEXT"(7M£K(z&$yp <y ? 
lfflfrft.%Z.n\- f £-3X\.^ ¥ 

**&A,fc*b> *<7)?IJA<>8*5«fc-5 
tZ#oTU$<7>/;: 



1 ® ? "J Z- £ & -So 7 □ -y ? tf 

^COIT L S r> tz b -if(7)5IJtZ 

iffc^yp v 9 ZW < z. t ifiVS 

iTLJo tzh J f—A^t—/<~tz' c 

ItWW IzieM L T fcfr£ In £ f <' 



**l 



SHORT PROGRAM 



7°a?' ; 7A -7-f7> Kcop — 

#s uz c mimfrhimL^ 

U T'-Tc 

tf ? A,*rbj£ b ftT # fcffcS £ 

t>ht£^A,X'Tfi\ ZtliX't 

iftbar>t^Ji)a^^i.X, tz 



t?ffl&j : ,i;*mi?Z>tztfT-ti: < , 

mm&iu&ut', -fulfil* 
&W(»mm~x. vtizxtix^z 

LT£#fc<7rciJ&U ^-t+^^\ 

i bC^T* U v7^^C7)y P y^ 
A£fF(J±.(f3<7)[J, -j£l*!£L 

fc b#i<fr^ # JZ#-3 T L S (5 £* 

MyW<*: t ^(7) TTo 

£C*>M BASIC(zL^v->>f= 
(zL*>, *tfe(z^iNz:^-ttS«J: 



Qi 

Q 

Q 
Q 
Q 
9 



■ CG^P^^ASBP 1 ! 



o 

Q 
Q 
Q 






•5 (zfc* £ T(z(j t*o LT b±Q 
fA^fcya^7AU^], HI 

wlt, ^n^-fctizi^^tm^ 

Mta§z^^<— fxtn tz 
XWz-tblt. Jlt7P y'7A[:T' 
#§/c'(tl¥L^^l^^^lt§ca: 
CjloT, ^D'l>^-<7)^^ ^ A, ; §r-*7" 
d?— h LX^Btzl^tB^iTc 
tzhX\ ItLtbizbm^tzt 

^<7)^SW^p B p^z j; -7 t^:^. b ftT 

'j ti ^ i r <7)T% g ft f^*<T* # fc 
b iim-ii-r tz ^ l t: ifcm l t § 

X<tz$^^ 



$x. :njT-ii}iii^ D p(7) 

(5 £ ^ t'tff— A7°P ^"7 AT 

Lfc#, cn^b(jy-Atzpi 

V >JU<757*P ^ 7 A ^|I^p<]lZ 

51^(7) ^ Z ^ £ t'MfcmZ t'A, 

*T^(5 -5 T— j£v v >;U7>tt 
?rLTfc-#SL/c(75T s i:tj* 
z.?lt Z. n«r § ^tZJ^JlSE L T < 
fc^Uo ^tiT(i v <y-yf 
i>ytl)'>3- h • Z7°P^7'7 
A- T^^KlZ-g^Z/Sfl^! 



^r$fcttZB5 



= 107-84 

7.'J-l7gWLUtf;b 
(«)y 7 7+- 
MSXV^'v>fi»g|5 
l/f4S/a-S7p77A^ 



•> a - V • 7'P 7=7 A • T 7 -f =i > K 129 




Msxv2je» 





K ft 

* 



Aasrasi-* 




tzl1t\ t^UW^W^fts 
£ ,H* & t) <7)#tfrft 'J * 5 (73 fc* 

& A flip h _ r^ \* v <?*?¥— JaJ * 
tlt£^A,tzlTh a 



W) 843 
itt 629 
«* 616 



cnwiuwOf/N) ? 



• SfltWJC, £<7>i6;>]fil£;*«>T ) p&. 



S3?: o fc W- 1 ^M"? < £ H -5 

—ixt£<ntz %%&yf—Mzt-> 
if Us M<izt:nT^z><7)tz a 

< Z £ H-f5*\, Jt&(tf53)(f230 

^Z'^+IL <* i ?'"S ftWft, 

*\ #H £ fc Mf= ft 5 z fc £ffl 



*s6g i 3?<7)-r'-.M 



■5tl^ a 7Wi7— (JH^&ift 
^^g|5T'12*?)il<734 , * x| bx §7> 

11(3 LTU#, HfMrfffc-aT* 
1 £*£— T £ Z £ 3&*Z <D¥—A(D 

mmmwtecntzo 

■i >Wffizts tt5 =i ^ > Kli, *rt 



f ft£7rfflS:LT$>3; F*DiSc(z 




8ic*i230* if 05#§ 12M. 

f P 03 



Si 86 :r^ 127 
133 
I 1.5 
; 127 iff 4- 1 



igaiagiffliHMi 




• £#?£-?Ti>< fctfjc, IbIM*? 3: <«fflL>i:ltnifiMtfci.»- IISA^S^? L (7) &#• ££>, &«?£ b ^TSttT? £ fta-. 



s'JJSIf bft.% 



Its jS^^^^^fflJia'i, «!!?: 

ALTX^<±X-mWtZo *H*Wfc 
±(73|l|iH?r^Tftt\ Uo?^(Zffe 

H(zifi:«>^A,x-LN < <75/c*o &3UJ> 

Sotuno UNR& ffea^>a 

£tHLT^< $"f/ l¥L<ti* 
"*.— v(73=l 7 A &#{$ LT(J LU 
A,#(t£\ KMifrS. <t>frht& 

fc* * fcMr t* L tz t Z ^ tfU L ^(73 

T\ 5R5RS^l#-5Zi:ftL(c3i|£lH! 
X , i:^-9¥MWft^L^[i 
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;@^¥MAai©©M?I§T 



*fc'S«>££fe£^T-frl7T<fc3 

t*& -o xmmmx z>^$~tz 

mTZlzzn'f—L.it. r *<& 
H£j yiJ-x*oj:-)i:, $tfi?£$s 
fetfEffitl L XBr> T u < ? < y°a) 
b<nxizu<x s m&zm&h<n 
£tftC4 o fcSlfl-T'sg L I s fc©fc*„ 

u tv -©&-s> t>©£#H#rsfco 



SSM230* I 2011 19PflK 




a Hi 



^7^7*x-v7 £MA,T-V< -9 
loCs fe-o£l^fc©tfT*#£«fc 
•9 £&$-&-** fcfrfc, 5 A, T© 



» — —.«. — —■—- -v -v -r- - 


*» ~ ~ — j- — — ».».-■- 


■ A»'\a>PK/WZ" 


l\5KA*lc&o*:<b£3t*s X 


IS, 7fcSfc©Jg£S/5j.U— ^aXd 


kf-SCil&lc&Stf&o 5rVX£ 


-&o<0 mi5©V7S©Ug£§ 


72-tzxv. mn)i-3-y\zmmft 


tt3£l\5©lct, tt7?©&U3££ 


tMro?&z. s.fcot'T^-i'^r 


tf£s t.oig^C^i'f-'^^miH 


SZi^Soto £1\ T.tf-KT 7 


lctHUrBL/^o/ci,^Oo 


•>^fZct5o 


fcfd ^ttMlcJESt, OoM 


irfc, fc^Ut'JSW^-f- 


£fEE>nri,\3#&, ^©ffSBlcSS 


tfgufroto nm<Dz\^y\<mm 


sori/$o©e, av^ani 



x-vtic^^S! 



©P$^^il'3^Z5^6^^5o 

z z rams^r =& 6 -5 £ 

t>fr&/vtzV<t\ 'wVTJs-tLto 

&n©fe" ^nu^, sci^tfffiic 

tl>tj.l\%ftt2>Aitzte- t+ofr 

<£#&, ^z>^ummizm^z 

*fcSBK©JB14tUrtt % $£, 
IE ^^©3«?Stf^0, oq^ 



«« iJii^S'3^ SS©^l^lciq) 

^•=>rii^ g©iu©gs ; gis¥"r 

*»cisiA^rJiCo ft«*tt, ^ 
©«ic<t<^*t>rBi^^ »#i» 
lC^fcbl5^-T5o 

*mftti.< &-g>£HI:H;:&§©fc" 



K£M230^ f 06IS 01BOM 
1 — . . |-„ » ml 


^■P 11 Mv -n 


104 


- 71 




104 - 


W 


■1 li>"IHk 


92 


US 




108 


l.h 




139 


- 4.1 


K, i&MWNtt~. 







»#gBPt(c*jLT, 3r=££fcb"r 



fc&BtCtt, i%*£T %<r>tz a 



iwa+stDSfcfi ^syTuasurAVuKtu 



T1& S^I^tt©^? A,*Tb©:* 'J '/tJI/ 

7°p^'7A5-iiLTi^t #t*bftfcft 

p d p©+T* v «t*fetfW=tt^7 >7°>J 507JR o 
*LTJB2& t&3Jg(iAigLfcffc&t-«:, 

* n-¥" n307? r t wftW9k b n i to i§L 

< fcASIJiiL^fo©©, AS3iT*&£— £ 
£ i ^ z £ TttLhTttfr L fcffc&Ctt3 , 000R 

££u Ztib©A«Lfz^p n p^*46T, ^ 

#, ^©rt^^rS^^^LS-To ^LT#fl 
fi^T*A5tE«)btlfcfe©t^L> ^»* 

51^S*-^©^m^*W, '90^© 1 ^-§-I,lh 

AW— g[5tJ N TAKERimc(2/\°-yy— y77 h 

#**g|5H <Dy'-Av:HJ*nOT 

@y-A7°Py7Ag[5P1 



WSI^#- 



»ttiftz5^aE«)* ■/ *ji- 



^fFp°T\ («0 7" 7. +-©^ISIZ J: 'J , MSX 
-7 ifi> >|^JiTlli)cJ5 d: U\ TAKERU g fct* 

/ty^r— *>WmT'%z>bmzW)£'? £tz 

xmftto&mitiffi-j'xf—izffimLiTo 




v^yyj 




50™ 




'j&-fH£*LT<*f<H>-o 

©ypy^A^rieiSL^^y-i'T 7 (7D7t" 

(DMSX, MSX2, MSX2 + C7)glJ 'JZ-^RAM V 

VRAM(7)^^„ p- KJSSfe H^T^>i, MFfi 

©lett 

®*^fc©ttflFfx ft^s ^^, mtm^ m 

Uzb(r> (ttflif % ft^i;(i^r'7'j^y^-^ 
#©^©f^«rS{l f*ll#©73©f±^fs ft 
■SWWiaWitv^J; i iz, M&LX < fz? i\, 

s r $fe ~ 

X107-24 ^^fl3^|xmSLiJ6-ll-l 
T. l J-X7m^LUejU 

(i«7^+- Msx^^fs;>aiiiSB 

V7K'7X7 7 - =l>^7.h^ 
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xzuyttttmnmQ $i^,UZ%*?b r 7~ mi 7 




NETWORK 






^.y h9— ^(ZT^i2^LX^/c «fc % J:9l--S>(3^-S>Ci:(i[i)i;^ 
*-y b1—?tZ^}WTZ<D^T® —fiT'WEfflfolzfttiTLii 

jl&Tfc^u az-o'ti^amx' ?x, ^[miS^t^bS^ 1 

5*&l*%7>*y h7— 7*fc'„ /\°V 7 h*{CT^-fe^LT^Ts^€0^ 

X^Z>liX\ W%mubh?> SAfc^UfcJB-Mt^ fcf— 5>* 
a,> v > #&*>&i£Mtt& *rc* > c « *> * ^ t s-§\ * -y h i - 
•y hfejI^LTVafcZ^iK ?<tx— Pi»mM£HT;z>A,t* a 

*k ?<nOtitz Xt^ 

BJ^'-J/h* 7 7°LT, MSX(7)«£Aft5^ 

rt^coilif 7 7 hA < 3t*»_h* < S 

•1200/2400bps f J&^£L4 v #*Ut&l\, V«J 

£-®S^HI (MNPfcttS) x-f*fc*\ "SflWtt^, SILu 

'*¥** *L ffitfftA/eut&f?*?; :tiA^' 

?— ** 8t'-yh 5t*-3*»fc#0>jWJs fc'J&x/f 

Xh ' y:/h '' yh ' %^^'^C^(zLJ:t *q«bfc< 

fz -o X' \ / =1 ^-jilg £r=fe L t _ c 

teX'£Z(T)tz 



CONNEa 2100/Ra5 -&?.]■ izmr.wntK'cskzt*;**. 

Return*- 3 m99~U !! HSJjiKttl^ ijjr->*_ €]W. 

ilS^UBusiness Jump NetTrf. -"-JUT B J * -v r © * -i r /1-iISii. 

* * 

* B. J Ne t * 

* * 

* (C) «JJrt- Ci'*Xi'l->7"««SB * 

* * 

* • 1 200/2100b ps * 

* • (03) 230- 1 2 I 1 * 

B J METCkSE*! I 

?i]njB5ISItt3 0#-er. ifo€J:5b<. 

(AWSiffltc^t help avyyimxtf. Kl/TT$t*. ) 
y-f > • y-a-©ssj£iiU.-e<fc"$i>. 

W-a-roSiStt h, «ls©t'*7U e) 

1 ) B J ISJFffi 

2) B.U.-y r©tt!l>7j 

3) 7>*-r 

y-f > • y-a-©»i|*;3A,T< »***. 
(jf-=a-ff)2i>i;« H. jfils©t*7ti E) 

2 -iSfflU r B J *? r ©Hfl'TfJ *J1T»<5. 
B J * -y r ©ffil^y = a -©S^fciBA-T < fc**l*. 

(y;i-(DS*« H, y-0^-3-^©(g«ti E. tfgiiAS-f -StSt*. 
S?i:SltT U (ffl. IU) «fflyT<fc-*l»> 

**B J?.-y r»ffiWy:2-** b.A£M*68 

1) B J*-, r©Kl»fi 

2) B J*-y MrfHB 

B J * -y r ©WW/* =.3-©ifiS! tig/,? < fc-*l>. 
(^=a-«f« N. xoy:^ — .©(««« E. tfSii^'E-r.StSli. 
S^CMtft; U (fM. IV) SJTl/T<eSI.-«) 
I 
B J *-v h©H!V^ro3-+-T!r. 

l»-0*>ii©T — 9»HSf ft> (YY/MH/OD [150 89/01/0!) 

(EH*"iU L. 'T'lLW E. JtoB^^.H.'StiStiCR*-) 

SSfflh) A / CTRL+S ?lSPII!n) B / aRL+0 SSt?7) C / CTRI.+Z 

No-WSB — BJ-t.-y hfflffil^ 

l)80/0!)/OT B J *-j I- fct* t^i:*H»«) 

2)89/00/01 B .1 ?t. -i [■ nm-'fittt tAt*H»t. 

3)89/09/01 B J -t- •> r ^©1313(1 t/ w t AH-4, 

rajtB*^|SI»@4T©T— 5"B}l*fA^? (5,l2©J;r)t;) 

a?7u e. -r-^Ttasti cr *-. ?-< h^osBS^ut t. sssu n) 

1.3 

5S55f?ll:) A / CTRL+S VM'TcWI!!) B / CTRLtQ WiWT) C / aRL+Z 

I) [89/09/01JB .1 ?. •/ r tl.t tAfcftH't) 

BJ-t.-'/htti 



132 ti h L -5 NETWORK 



**« NETWORK 



I -hy$yt&<Diz \ I 

BJ*-y hc7)7°P hn;Ki, £T 

"< — v CO T 7 -t 7 7 s f — ? <7)S £ B 




_stc«ttr N <ffl. 1U) SI?UT<K*W 



<MP7v ya*>(h-» HH £ 

wmiHUi&tfE'** b *\ iifflv 7 

?T V UcU^BJ*-y MIT 7 ? 
-£7.1-$?; -5* < BJ**y K7>* 
7 h v -> > tlW% Z t **T*# 

BJ^-y H;7?-tz7Lfc£#<7)n 

tu& ifA a * > v Tit^ri- $ a* 

*-y h^-^Hd: 
r>Xlt. CONNECT 

tztft\ BJ*-y Hi 
"a— CU< <fc-)C 

7?-fe*T-#/-b, 



©*>* A, *>#*!! 

QfiJiORr 

©WickeySA/lifc^ttKfcU 

(DfcA/Cfc-f'O hHVK 

(D*±*B15_ 

®UserfcW^ 



®BJ*.y h<7)^U7J 

©BJ*-y h 



■WL7>4—1- 



mm** L. «j£B: E. aa*-'?l«>4:3«CS*-) 

"~--*MPJ-^-X SSB I#£fc£ 

YOU 35i/*X 

YOUNG YOU aS^X 

S/> >^35 "J 2rt»l/£j/3 > 

.^^•S'iaA.Ka?'/-:??- 89/39/28 Kg *ya 
(87(* E. ?^T*14tt CR *-. *-YI-/UDH£/m T. KStt II) 



r ->77A-f>7*/->a>jf:„ 
{M 1 £ Wo T l ^l *« Emf: ? nx 

7 t-7 h -y 7°r $ ttfz z) mm 

~(7)v77 L A-f>75l-^ — ~>3> 

(J, 7?iz7-t6Jf(Zg£iITJ: 




-(Di^mtz i^AW7hC7 
?-tz7LT<^ct0o 



C-VAN© 



(7)PC-VAN^Pb4^ N AtiS"f, l^ 

/ij-©ii?fci:i:fr< B^ 
T— # B *^tS"T 5^-7h7 



^*ft*ft*ft*ft* THAT' S ! MSX ■k*tcki*kti*kk 

' ! THAT" S ! MSX'-. 
CmS I 6|. MSX%tSoTfc^ B-5Tl/^<T«.MSXC««(r>^A 



L PDSKiilsV^h rMabTermJ 



arc, V-aJ'A'i:RfcTi. s .t>*>eSI; , 'Ci#»nff» otDS I Gff) 
f3. 7*-9Arroi2. 0&A*:-|iTKSig ; £i*a( , u "F<^l' 



• PDScDDI SKV-e^Eo^T 
rPDS#<?(DW>D-|-#'i(BJftl,N! !| 



tPC-VANm* (•=(*. MSX3--+f — fc *><»*— K&A*^-' 



lt^WoTfcU$^$*$A/ctt 
^ *? b IC £ o T £*<7)i7j7!r®a 

r ^(i »J MSXO--+f-(7)7JT- L tz 
hs "That's MSX I'^l^v^V 
fc»J iTJ:„PC-VAN(i^|l|93^|5TfT 
(z 7 ? iz 7 /i? <> h ((S(r±SB^ 

i2oobpsjjub)*%y* - r^b> a 

?nfcitit#Mfc 

U MSX&gcDv 

ro(i*§«Ett* 



SL/TKfOSt, 




*>*£MZ, PC-VAN(Z77-tz7-T?) 

tz (i^rS^ifeco T 5 -kxtf-t > h 

DDX-TP^TYM PAS $-g^ LX7 

KfrC fc - zt - 7 +)— 1'7 &ti 
-A h U-t^^- >?"'4'f; 5&7J& 



=P108 3K^iB^E25-33-1 

PC-VAN*^^ 
S03-454-6909 

PC-VANl£fti£iA#£M3}ct So 
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^ip % vh DE "F 









5S^»V-Bttl5»TFT»? 

§3 4$©6fil?To 






:W|fti-'j;7>->a>t > H lU <?)#/::& v. > 



5<7>*-+-y h 



[*3] 



[mil] *ttT'i*iM/T'-t £- ! 

A,C*>te x fcm>LT 
MSX*-y MilJUtfTCT-lTr? 

MSXfc'o/^TtJitao ^-c7,£# 

DM mm. MtBzs (va>i 

ftH T 5 A#tv& < T A^T L fc „ 

[mil] i o Z'h <n z t T-Tfr ? 
[M9P] *%c7)6^C'^T'-r o 
[mil] MSXS-iiA^cIffili? 

[m®] *- -max, 4»otfy, 

BASIC fc*f»*JfcA^fcU /<va 



[US] *aC»-3T*A^C^C 

[m*>] *-t*i\ ss, v-zl 

v n >iiif s-^tuimsigax 

t>b*.3£H^T 

[mil] T', «#](iA^fc*-y f- 

(i? #3fx.T<n§A(JT<'T'# 

iLtzfrl 

imp] -) -a,. ^otfv^atT- 

fcA,T't(t£; *<7)& PC-VAN1Z 
A'Jf L/c 

[mil] ^c:'JT4 7M:lv/iA 

A>"ei^<<7)fcfi$[frV3A^xfri 



a»^A.MOfs<; 




fc&m^Mcm&*>*A 

r tt-t\i 

r U-^ £SBT*8EUS 
A.T'T J:-j 



[M#] fW'JKfot^^W**, 

[JJ3] £k t>fri)£t1 Wi 
fWttl1z*lt £'A,4iSf^r&-5 
Uihn, ->X K * F*L Wb* 
5RI/ z A "CC \ < * fc i i&jg&ft*( t 
bi^fe&oTLS? ! 
[M?J?] 1 1 T"f , Ag§3 L £ Ltz 

[urn] mimtt'iT'itzfrt 
[Ma] x\ tckm^a,?)? 

[M?>] ¥% < b I *fc o T^^bT'T o 
[mil] Wl^iLo^(i^cT)^? 
[S?>] fc*.^M!) T'-f 



[*n] i^Tii/\> k;u^ 

— AfctH#Olf tzA,T'Tfr ? 

*LISA" t\.^%xj&<n^>\z*3.— 5> 
tf&VtLfzttZ, 

Mis imteA,T'To #fr^ * 
[mil] g^-T-oltT/^-CTA^? 

[M?>] ^n-to ifl-TiwzA 
[mil] ^- fr^*»3>tra.- 

^ (Z^*^^3i^fc'o/cAT'-rfeo 
BJW^T*r«fco 

[ma?] * hh ifx* fe 4 ^T-r d; „ 

[mil] M$-DOS&fc*ttl^:ttl» 



«J<7)^-^aA<5EE M>^7 7'c7) 



* tz^ $$£*>Wzzt izmvpz ^ 

c7)^M(3(J^U$^^Ao Xit c 
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**<-* NETWORK 




ISP] tbtliXKhtteis RPG 

£ %> o T 5 &%tek XT «fc o 

[ma] ^? 

[KM (/t^tO, I?rll> 

Htvr» ^TL^t £&T'RPG 
T\ £r0)$0)AC t > h £l«l*"C 

[na] *^i^<»c» najcifc 

ft/cA,rc£,£U.^Tcfco 

DBti hit, ^A/<;*>(TftTn), 
[mil] iMLTfrb, t'ft< b 
b, lOaE^fco t x *B; v*?- 

* -y h Ttf- K &}|oTi To 
[US] /« V 3 ><73 £'A 4 £ C ^ 

imzx'tfr'! 

[m&] tflsMi&i-kfr^bfr^ 

£, tztd<nfflztfti£o $i$b 

«t„ 4>LT*^b^oT<-5fc 

LftC, r g-5HOfc(7)o ! j oT, J& 

IS#LT 

[*II] M^?A,<7)gtSL*r;b^i\ 

[S2W ^<^ ^v-3-^Xs it 
[Mm] m&zMt. /*v=i>v 

;|*fc J $'otVl>A,T*TJ:fck w 
fHiMWfr+s, ? 

[JQQ ftit., oti^i: , 
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BASIC*<AL^Ji*Sf^ieT' s 7 
■i h7°P7^ h*-f 'y^£OFF(Z 

ix<tz£i\ H^f^^^yp 7 

3 A ('j£f If #"§~tt # ) £ A?J L X 

frh, usj ^m^TSc^m^t' 

iz^-f h7°a-7^ h*-f-y^£ON 

iax, new£?<7 l£T a 

nTO^^Ci-rTT ZtlT\ -9 

T\ h t (i/ \* -y 7 T 7 -y yfflTOO 

£-frA, 
mz s ill-? bT-^vJ-ZW) 

7°p 73 AcoA^)^fifJES#(z(i, 
7-f h7°nf? h;W-y^£OFF 
!:LT(f:?u ^^ L^u£, 

*$£■&£,„ itz, ^J-MJ-yv 
£M L tz 5. $ *W<T)WM$: Xtltz 
Vty^tzVtZtZ&'&t^'t V 
7°Px? h^-f-y^teONtzLTfr 



POKE &HF676,l:POKE &HF677 . &HC0 : POKE &HC000 , : NEW 



far tiett^ftTi^i^ m;s 

|2gjB#(Z ( JW[*]/tc7) 7° P ?' 7 A 
#16 1 * X > - a — ®® (Z & 5 fc\ 
BASIC(7)ftfflttSlZ^'J £T e C<7) 
ltiT'7-f h 7*n-r? h *-f y5f 
£OFFIZLT s ypy^A^rATJ 
LT<f:?l\ XUb^-JLtzh 
0N(ZLT, %tifrhW&&QM£ 
To &fc(t'*W&(t*l(£ m-M 
£ Aftftlf A7J L tz 7°p 7=7 Atf 

3WI»iI>j:<7)T-f£\ BASI07) 
Z/p^7A(J16^P/S-r hUrtT 

16+n/\*-r h x 2 ^ LfcMt^fo 

if-, DATA5:(ZL/zVv>i=y 
P^A^HiTt^if-g-ti, 8000 
~BFFFH£T*£, C000Hl^(7)|k 

ioo/\*-r K^p^aiz^js^ 
5)tz(iB< c£tf-C££-tt-A, L 

fc^oTs 7y>i7°a^7A(J 

hhfr^tsbli— h U -y vi*i<7)^# 
pMlZ|&lt?-t+-5,^\ D000H- E000 

H*fc u (zingr-s^^fTcr o 

7P7 f— 7*-r 7. 7 t£ £*<7>gSl@cH 
ct o T 7 'J —x i J 7<ni&W K U- 






UXK2 


100 


' CMOS-RAM Cart r i dge i n i t . 


105 


"Special thanks to I'OhTM't 


110 


FOR 1=8 TO 48 STEP 16 


120 


P=I OR (INP(&HA8) AND &HC0) 


130 


OUT &HA8 , P : RESTORE 


140 


FOR J=?/H8000 TO &H8018 


1 50 


READ tm- : D=VAt ( " ?<H " +D* > 


160 


POKE J, Ds NEXT J, I 


170 


ON STOP GOSUB 200 


180 


STOP ON: PR I NT "POWER OFF!" 


190 


GOTO 190 


200 


RETURN 


210 


DATA 41,42,0,0,0,0,0,0 


220 


DATA 10,80,0,0,0,0,0,0 


230 


DATA , 1 7 , 80 , A , , 94 , , 


240 


DATA 
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-p X < S^«3fc(75&* n t T 3 £ , 
:£:S&T-(n-1)<7>pg^ii»J. o^'J. 
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3>fc°a— #(& #*.bft-5, 
f ^T<7)& b «> &fll# £3*4 t H 

d i i T*<7)i6Rg(7)Ki# j: 'j < mm 

tZ?>T\ -<7>7*a?7AT*W\ 
AtiTi^ o i020^TC7)M=6 fcu-5 

^>^(J5fFo b&nmtrm®?* 

X4X3X2X1 V oi'J s 5C0 

X\ &*j& i20ji>Jtiv7-i:{z 

tf«o Co?D{^ 1> 2, 3, 4 N 5 
i:D^)l#T'[ll^Tfe, 5L < 3. 
2, 1 i: D •) JiI#T1U^ i fflM\i 

^'7Ait f:iT-#^ict 

=i>t;°zL-^^\ 120ii(Jc7)ii-l^ 
0(t?)(75lZ v Z^ypy^AT'ti 

4^*^„ of 'J, utrxnm 

B *$&)"#> 5 <7) (Z 2 |fc^3&» -3 T D 
Z^/SftS.70 



168 Ax»Bi7^*><ig 



Aiam&u^as 
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b24Bm 9$FT'CJ S 9 0, 
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1810 ' W>-«» L"*i*H.« 7°D?"7/ 1 

1080 DEFINT A-Z-.DEFSNG Z 

1090 M=6 ' l,»z <J) JW*+1 

1100 DIM X(M> ,Y<M) ,ST(M) ,PT(M) ,F(M) ,US<M) 

1110 X(0)=128:Y(0)=100:X(M)=X(0) :Y(M)=Y(0) 

1120 ST(0)=0:ST(M)=M:US(0)=0:US(M)=M 

1130 SCREEN 5:G0SUB 2070:GOSUB 2170 

1140 OPEN "GRP:" AS #1 

1150 FOR 1=0 TO M 

1160 PUTSPRITE I , (0,212) :NEXT I 

1170 COLOR 15,4,5:CLS 

1180 PUT SPRITE 0, (X(0)-4,Y(0)-6) ,14,1 

1200 ' *** L>z <J) 1. 1*5 tfoTU *** 

1220 X=20:Y=30:FOR 1=1 TO M-l 

1230 S=STICK<0) OR STICK (1) 

1240 X=X+SX(S) :X=X-(X<20)*D+(X>245)*D 

1250 Y=Y+SY(S) :Y=Y-(Y<30)*D+(Y>181)*D 

1260 PUT SPRITE 31 , (X ,Y) ,15,2 

1270 IF STRIG(0)+STRIG(1)=0 THEN 1230 

1280 PUT SPRITE I , (X-B , Y-8) ,11 ,0 

1290 'PRESET <X-24,Y-6) :PRINT #1,1 

1300 X<I)=X-4:Y(I)=Y-4 

1310 IF STRIG(0) OR STRIG(l) THEN 1310 

1320 NEXTI :PUT SPRITE 31 , (0 ,212) :BEEP 

1340 ' *** CUd' if ZtZ D*O l J*< *** 

1360 CLS:FOR 1=1 TO M-l : PRESET (X ( I ) -16 ,Y ( I ) -2) 

1370 PRINT #1 ,CHR*(64+I) :NEXT 

1380 PRESET (0,192) :PRINT #1," ,1'fcz J B**4*.4irT < 

fc"*l'i "; 

1390 IF INKEY*<>"" THEN 1390 

1400 FOR 1=1 TO M-l 

1410 A*=INKEY*:IF At="" THEN 1410 

1420 IF A*>CHR*(63+M) OR A*<CHR*(65) THEN BEEP: 

GOTO 1410 

1430 US(I)=ASC(A*)-64:IF 1=1 THEN 1470 

1440 FOR J=l TO 1-1 

1450 IF US(I)=US(J) THEN BEEPzGOTO 1410 

1460 NEXT J 

1470 PRESET (1*8,200) : PR I NT #1 ,CHR* (64+US ( I ) ) ; 

1480 LINE(X(US(I-D) , Y (US ( 1-1 ) ) ) -(X (US ( I ) ) , Y (US 

(I) ) ) 

1490 NEXT I:LINE -(X(0),Y(0>) 

1500 ZU=0:FOR 1=1 TO M 

1510 X1=X(US(I-1) ) :Y1=Y(US(I-1) ) :X2=X(US(I) ) :Y2 

= Y(US(D) 

1520 ZU=ZU+SQR( (X1-X2)*(X1-X2)+(Y1-Y2)*(Y1-Y2) ) 

1530 NEXT I 

1540 PRESET (0, 0) :PRINT #1," YOUR LINE " ; I 

NT(ZU) 

1550 PRINT #1," J^U'7"*** ? (y/n) 

1560 A*=INKEY* 

1570 IF A*="y" OR A$="Y" THEN 1630 

1580 IF A*="n" OR A*="N" THEN 1360 

1590 GOTO 1560 

1610 ' *** <Jt*tltf 7*3* VX* L *** 

1630 N=M-1 



1640 ZB= 1000000000000* 

1650 FOR 1 = 1 TO N+l :F(N)=0:NEXT I 

1660 TR=1 

1670 PT(TR)=1 

1680 IF F(PT(TR))=1 THEN PT (TR) =PT (TR) +1 :GOTO 1 

680 

1690 IF PT(TR)>N THEN 1730 

1700 ST(TR)=PT(TR) :F(PT(TR))=1 

1710 IF TR<N THEN TR=TR+1 :GOTO 1670 

1720 GOSUB 1800:TR=TR+1 

1730 TR=TR-1:IF TR=0 THEN 1940 

1740 F(PT(TR) )=0 

1750 IF PT(TR)=N THEN 1730 

1760 PT(TR)=PT(TR)+1 :GOTO 1680 

1780 ' *** £111**53 $ fc£W5 *** 

1800 LINE (0,24)-(255,211) ,4,BF 

1810 ZL=0:FOR U=l TO N+l 

1820 X1=X(ST(U-1) ) :Y1=Y(ST(U-1) ) :X2=X(ST(U) ) :Y2 

=Y (ST(U) ) 

1830 LINE (XI ,Y1)-(X2,Y2) 

1840 ZL=ZL+SQR( (X1-X2) * (X1-X2) + ( Y1-Y2) * ( Y1-Y2) ) 

1850 NEXT U 

I860 IF ZL<=ZB THEN ZB=ZL :COPY (0 ,0) - (255 ,21 1 ) ,0 

TO(0,0) ,1 

1870 PRESET (0,8) 

1880 PRINT #1," NOW ",INT(ZL>;" 

1890 PRINT #1," BEST" , INT (ZB) ;" 

1900 RETURN 

1920 ' *** Uiftov*,? u*y *** 

1940 CLS:BEEP:COPY (0,16) -(255, 212) ,1TO(0,16) ,0 



1950 PRESET (0, 8) :PRINT #1," YOUR LINE 

NT(ZU) 

I960 PRESET (0,200) : PR I NT #1," %o I. »*$£:" L*4* 

y/n) " 

1970 IF INKEY*<>"" THEN 1970 

1980 A*=INKEY* 

1990 IF A*="y" OR A*="Y" THEN 1150 

2000 IF A*="n" OR A*="N" THEN 2020 

2010 GOTO 1980 

2020 CLOSE: SCREEN 1 

2030 PRINT "f£ *tf,C7"tt ! " :END 

2050 ' *** 77° 7-ib t+oTU *** 

2070 RESTORE 2110:FOR 1=0 TO 2:A*="" 

2080 FOR J=0 TO 7: RE AD B* 

2090 A$=A*+CHR* ( VAL ( " ?<H " +B* ) ) 

2100 NEXT J:SPRITE*(I)=A*:NEXT I : RETURN 

2110 DATA 10,38,7C,FE,4C,4C,4C,7C 

2120 DATA FE,92,92,FE,92,92,FE,FE 

2130 DATA F8,F0,F8,FC,BE,1C,08,00 

2150 ' *** stick t+oTU *** 

2170 RESTORE 2210 :D=4 

2180 FOR 1=0 TO 8:READ S :SX ( I ) =S*D :NEXT 

2190 FOR 1=0 TO 8:READ S :SY ( I ) =S*D :NEXT 

2200 RETURN 

2210 DATA 0,0,1,1,1,0,-1,-1,-1 

2220 DATA 0,-1,-1,0,1,1,1,0,-1 
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^ 250£f& ^ti^'tixx h/\ ^ 

BASic^yp^vA^bvvyii 
<n-fn^=7 A$-D^/Hiriz(i *USR" 

f J(z^-v £ s jSETfJlz^— 
vl ^^^^-frSSB^-fc'o *USR 
(256+^^t#-§-)" «:t^*6C 

— /l>$#^l>Sc^^290fto *USR 
(512 ^ jgBt»9) * t V> 4 *5tT- 

TU^riMt^ *USR (768+^S 

M#^)" ^IBfef^i:, HSTfJ 
(zfl^ft&^-v 1 tf^flS^-^Htt 
7. ^ n— ;u$-tt5 z fc *<T*# •2)^ 

t£&z.<r)-7u7^i±X'[t, Tiz 
>7*7m±*W&zT%tz's(>mR 

l^^o tzfrh, VV USR(868.0)"^^ 
*USR(100 + A ! )*<T)£ ? )'t$!g$m 

tz s USRBIIiBt<75f$H.^v.^lzo 
l^T(i r MSX-r?-*jJl//\> K7" 
•y^j (7)73'<-v(ZtfciTl^- : fo 
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1Sto1± 



III IJ U iii* £MH t s x -f >-/a 

$ 1\ 1 76^- v<7)£f J+lxH* 
3*ASEG / '7rb<7)3fT(i. M80.COM 
^ L80 . COM £#o T BASICW 7' 
;u-^- > 4' if<nWiM * 7'y x ? 
h %ft%>tzlb<7)&% M80.COM£ 
L80.COM(iii*'<7'(CLT^\ 
7 7 ^>77T'fFbn^7°P^7A 
it b V -> >f=<7) 7 7 -r ju £fl^ u tH 

fW)tt fc/t\ Z<7)£#fl;<bft 

& 7 7- ^U<7)#;3fiH2 vv C0M* o O 
J U MSX-DOS±T^t^Is^j:v-> 
>I§7;p'OK;&oTL£-)o ¥ 
Z T'^IUCOct: ? dBASICT&A* 

7 7-r;u$-f^tjfci^*^-tz(i, z 

^ASEG^b^^'jZ^IfrS £ 
£fc x BASICCBL0ADT'#-5>^ 

^<7)v->>|=7 p ^5A^HB= 

FEH 

□ - PINICtt 

P— KfST#i§ 

t^-o tzT*—? tftnt'nm # ** 

itlTl^o Zftb^M^LT^ 
&0>)ft ASEG(7)^(7)4?ffc**ao 
$ X . * AD_L0AD:"^ b f£ 5 <7)g|5 

©TOt^TI^^ USRRR 



6Wfctt b l£ A U v 7. * GOl*)^" 
?<7>fI(J v HL+2#±iil£ HL+3#±fc 

- * c7)_l^ w h # o & b tf&fi 
** i & b &bfeMM ( J &»oll 

— Jl\ 3 & b l£"<— v 1 <7)fft7. ? 

FD9AH#±fe (o i U flj U && 7 -y 
?<7)H.KEYI) *<P— ;u$ti-S3i: 
£#£„ :ifrb(7)5A'< HI, 
RST 30 H 

DB *P-y h#-^- 

DW #±& 

RET 

Lfc£#C, }§£L/c7°p?'5>A 
£Wffl-fZfc#T'#^£ Z 
W^ fa*v7}&#T*P— Jl/£ 

Tlis *ON_H.KEYI:"^0?y ; 'tH?tl 

FD9FH#±tfc^bCi? -f V— ft| 'J 
iA<fr(ON_H.TIMI:) s OiUttil* 

T1J, SJ 'J &##$g£ L tz t # (73 
VDPXr— $X\si>X$ 0(7)fg^ ? 
AUv^^(Zl£1t?n-l)(7)T\ AF 

feU t'HTfe77^t?i 

*.2>#b(& Ht>7°JU7°P^*7A 
(7) J: -5 13 7 -y ? <7)5c<7)fl&<*# L 



M80 , =0NSCAN. Z80/R/Z 
L80 ONSCAN, ONSCAN/N/E 
DEL ONSCAN. BIN 
REN 0NSCAN.COM 0NSCAN.BIN 



MSX-DOS©PV>Kt> 



«0i&«wihi*m»3Wd?5Za 



100 ' 

110 ' onscanl. bas : test interrupt on scan 

120 ' by nao-i on 24. Sep. 1989 

130 ' 

140 CLEAR 300.&HAFFF 

150 DEFINT A-Z 

160 OPEN "GRP:" FOR OUTPUT AS #1 

170 BL0AD "onscan. bin" 

180 SCREEN 5 

190 SET PAGE 0,0: COLOR 15, 6,1: CLS 

200 COPY (0,0)-(255,127) TO (0,128) 

210 CIRCLE (128, 106), 80: PAINT (128,106) 

220 SET PAGE 1,1: COLOR 15, 1.1: CLS 

230 DEFUSR0=&HB000 

240 PSET (8, 192), 0, PRESET 

250 PRINT #1, "This area will not scroll. 

260 JK=USR(256+100) 

270 FOR J=l TO 5 

280 FOR 1=0 TO 255 

290 JK=USR(512+I) 

300 NEXT I 

310 NEXT J 

320 JK=USR(0): COLOR 15,4,4: SCREEN 

330 END 




t $ lZim-ltz7";?^it*>7° 

m ( j &fr<nf£&xi*vm $ ft. 

VDP«*flrf5"7*P^ : 7A£, 177 
^— v^f JTIxCO*ON_VSYNC:" t , 
\)N_SCAN:'' ?!rb ( J U 2-5 If 7JU- 

?->iz££#>xt>Wz ::^t 

<r>um~i%K.%tz% n 
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9->tZ%mffi&^~ t fztf& DOS 
<7)7°P ^T> ATliffJ 'J iZ^MH7° 
P ^*7 A4-4000H «fc ( J b±£ l>#ife 

#^C7)^P-y h^^C7)MSXT-^iB 
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71Z>7^CDV-^UXh 



onscan. z80 : test program for interrrupt on scan 
by nao-i on 26. Sep. 1989 

called as USR function from BASIC 

USR(&H00xx) restore registers and hooks 

USR(SHOlxx) set interrupt line 

USR(&H02xx) set display offset line of page 

USR(&H03xx) set display offset line of page 1 



.Z80 
START EQU 
USE_SUB 
USE WRTVDP 



OBOOOH 

EQU 

EQU 



address to load and execute 



IF USE_WRTVDP 

WRTVDP EQU 004 7H 

END IF 

EXTROM EQU 015FH 

VDPSTA EQU 0131H 

SETPAG EQU 013DH 



RAMAD2 EQU 

RAMAD3 EQU 

RGOSAV EQU 

DPPAGE EQU 

ACPAGE EQU 

H.KEYI EQU 

H.TIMI EQU 

RG8SAV EQU 



0F343H 
0F344H 
0F3DFH 
0FAF5H 
0FAF6H 
0FD9AH 
0FD9FH 
0FFE7H 



slot of RAM in page 2 
slot of RAM in page 3 



ASEG 

ORG 100H 

.PHASE START-7 






DW 
DW 
DW 



AD LOAD: 




SET SCAN: 



OFEH 
AD_L0AD 
ADJJEXT-1 
DO NOTHING 



AP 

HL 

DE 

BC 

2 

NZ. RESET_SCAN 

HL 

HL 

E, (HL) 

HL 

D, (HL) 

A.D 

A 

Z. RESET_SCAN 

A 

Z. SET_SCAN 

A 

Z, SET_D0 

A 

Z. SET.Dl 

RESET SCAN 



A.E 
(ILSAV).A 



to make .COM file 



header to BLOAD 
address to load 
address of end of file 
address to execute 



parameter is not integer 



DE = parameter of USR() 



CALL 


SET ILREG 


; set interrupt line 


LD 


A. (HOOKED) 




OR 


A 




JR 


NZ.RET_BASIC 


; hook is already set 


LD 


HL. H.KEYI 




LD 


DE, HOOKSA 




LD 


BC, 10 




LDIR 




; save hooks 


LD 


HL. H00KDT 




LD 


DE.H.KEYI 




LD 


BC, 10 




DI 






LDIR 




; set hooks 


LD 


A. (RAMAD2) 




LD 


(H.KEYI+D.A 




LD 


(H.TIMI+D.A 




LD 


A, (RGOSAV) 




OR 


00010000B 




LD 


B.A 




LD 


CO 




CALL 


WRTVDP 


; interrupt on 


LD 


A, 1 




LD 


(HOOKED), A 




JR 


RET_BASIC 




RESET_SCAN: 






CALL 


RESET_SCAN_SUB 


• 


JR 


RET_BASIC 




SET DO: 




; set display offset of 


LD 


A.E 




LD 


(DOVAL).A 




JR 


RET_BASIC 




SET Dl: 




; set display offset of 


LD 


A.E 




LD 


(DIVAL).A 




RET_BASIC: 






EI 






POP 


BC 




POP 


DE 




POP 


HL 




POP 


AF 




D0J0THING: 






RET 






RESET_SCAN_SUB 






DI 






LD 


A, (RGOSAV) 




AND 


11101111B 




LD 


B.A 




LD 


CO 




CALL 


WRTVDP 


; inturrupt off 


LD 


BC. 23 


: write into ,reg#23 


CALL 


WRTVDP 


; restore display offset 


XOR 


A 




LD 


(DPPAGE), A 




LD 


BC, 1F02H 


; write 1FH into reg#2 


CALL 


WRTVDP 


; set page 


LD 


A. (HOOKED) 




OR 


A 




RET 


Z 




LD 


HL. HOOKSA 




LD 


DE.H.KEYI 




~LD 


BC.10 




LDIR 




; restore hooks 


XOR 


A 
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LD 
RET 

SETJLREG: 
LD 
LD 
ADD 
LD 
LD 
JP 



ON H. KEY! 



LD 

CALL 

AND 

CALL 

JR 



HOOKDT: 



RST 



(HOOKED). A 



A, (ILSAV) 
HL. DOVAL 
A. (HL) 
B.A 
C. 19 
WRTVDP 



A,l 

_VDPSTA 

1 

NZ. ON_SCAN 

HOOKSA 



AF 

ON_VSYNC 

AF 

HOOKSA+5 



30H 



ONJLKEYI 

30H 



ON H.TIMI 




= (ILSAV) + (DOVAL) 



write interrupt line # into reg#19 
called froi H.KEYI 
read status regtl 

called from H.TIMI 

do not change AF in H.TIMI 



END IF 

WRTVDP 
Entry 

Return 
Modify 
Note 



WRTVDP: 



data area 



HOOKED: DB 
HOOKSA: DS 



DOVAL 
D1VAL 
ILSAV 



DB 
DB 





10 






non-zero if hooks have been set 
save area for hooks 
display offset of page 
display offset of page 1 
interrrupt line 



_VDPSTA : read a VDP status register 
Entry A VDP status register # 
Return A value of the status register 
Modify AF, BC 

Note compatible with ROM-BIOS 
DI when return 



VDPSTA: 




USE_SUB 
IX, VDPSTA 
EXTROM 



00001111B 

B.A 

A. 15 

C.A 

WRTVDP 

BC. (6) 

C 

A. (C) 

AF 

BC, 15 

WRTVDP 

AF 



SAVEREG: 



IFE 

PUSH 

PUSH 

LD 

LD 

LD 

CP 

DI 

JR 

LD 

CP 

JR 

XOR 

LD 

ADD 

LD 



: write a byte into VDP register 
B datum to write 
C VDP register # 
none 
AF, BC 

compatible with ROM-BIOS 
DI when return 

USE WRTVDP 



HL 

DE 

D.B 

A.C 

HL. RGOSAV 



NC. SAVEREG 

HL. RG8SAV-S 

24 

NC, NOSAVE 

A 

B.A 
HL.BC 
(HL).D 



=datum 

=register # 




NOSAVE: 



LD 


A.C 


LD 


BC. (7) 


INC 


C 


OUT 


(O.D 


AND 


001U111B 


OR 


10000000B 


OUT 


(O.A 


POP 


DE 


POP 


HL 


RET 




END IF 




; please 


modify fol 



BC=register 
HL=RG?SAV 
save datum 

=register # 




IFE USE WRTVDP 



ON VSYNC: 



XOR 

LD 

LD 

CALL 

LD 

LD 

LD 

CALL 

JP 



ON SCAN: 



LD 

LD 

LD 

CALL 

LD 

LD 

LD 

JP 



(DPPAGE).A 
BC. 1F02H 
WRTVDP 
A. (DOVAL) 
B.A 
C, 23 
WRTVDP 
SET ILREG 



A, 1 

(DPPAGE).A 
BC, 3F02H 
WRTVDP 
A, (D1VAL) 
B.A 
C.23 
WRTVDP 



AD_NEXT EQU 3 
. DEPHASE 

END 



write 1FH into reg#2 
set page 



set display offset 
set interrupt line 



write 3FH into reg#2 
set page 1 



set display offset 
end of program + 1 
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short PROGRAM ISL 



•>3- S • ZJDO^h. ■ ?-f5>K 




i+tHV^u-u/ 



10 CLEAR100,S<HCFFF:SCREEN0:WIDTH40:AD=$ ( HD000 

15 READA$:IFA$="END"THENGOTO20ELSE:POKEAD,VAL("&H"+A$) :AD 

=AD+1:60T015 

20 DEFUSR=&HD003:A=USR(0) :IFA=-lTHENG0T025ELSEPRINTA"r a 1 ) 

Z ?**!"•< D' 71J72":END 
25 DEFUSR=S<HD000:A=USR(0) :DEFUSR=&H9000:A=USR(0) 
30 DATA C3,68,D0,21,00,10,11,00,80,1A,13,FE,53,20,FA,1A 
35 DATA 13,FE,54,20,F4,1A,13,FE,54,20,EE,1A,13,B7,20,FB 
40 DATA 1A,47,13,1A,13,B0,28,32,1A,32,8F,D0,13,1A,32,90 
45 DATA D0,13,13,13,13,AF,32,8E,D0,06,18,CD,77,D0,4F,3A 
50 DATA 8E,D0,81,32,8E,D0,79,CD,4D,00,23,10,EE,13,CD,77 
55 DATA D0,4F,3A,8E,D0,B9,20,09,18,C1,21,FF,FF,22,F8,F7 
60 DATA C9,2A,8F,D0,22,F8,F7,C9,21,00,10,11,00,90,01,00 
65 DATA 20, CD, 59, 00, C3, 00, 90, CD, 84, 00,87,87, 87, 87, 4F, CD 
70 DATA 84,D0,B1,C9,1A,13,D6,30,FE,0A,D8,D6,07,C9,D5,5F 
75 DATA END * 

1000 'STT 

1010 '3AC1FC210000CD24003100D53E0F21000032E9F322EAF33A,C4 
1020 ' E0F3F60232E0F33E05CD5F00CD5292CD8999CD209ACD8699 ,52 
1030 'CDE69BF33EC3219996329FFD22A0FDFBCD0492CD4100AFCD,07 
1040 'C300CDD99B21DA90CDD49821B4981105A0012000EDB0CD32,A8 
1050 '96CD4400CD419B28FBAF32A396CD369BFE01200C3AA69DB7,8A 
1060 '28153D32A69D180FFE05200B3AA69DFE0228043C32A69D3A,D8 
1070 'A69D87878787C68C470E2016003E10CD6A9BCD419B28093A,70 
1080 'A396FE0838F918B9CD11923E06CD4101CB4F20053E0132AE,62 
1090 '9DCD4100CDD99BAFCDC300CDEE95213E91CDD498CD4400C3,78 
1100 '6B915840B4B7BBB2C4A5CCD9B0C201507053656C65637420,2D 
1110 '6C6576656C0138904C6576656C2D31204D495353204C494D,95 
1120 '49542033300138A04C6576656C2D32204D495353204C494D,AE 
1 1 30 ' 49542032300 1 38B04C6576656C2D33204D495353204C494D ,BE 
1140 '49542031300028C048492053434F52452020202053434F52,EA 
1150 '45204D4953530128C8303030303030303020303030303030,52 
1160 '303000AF32A396CD9C95CD3294CDCD94CD4595CD8F93CDD1 ,6D 
1170 '93CDCC95CD5796CD3296C39F9121B39D343AAE9DB720D43A,12 
1180 'A396B728FA18CC3AA69D0630B7280706203D280206103A9D,09 
1190 '9DB8C28D91060A16003E771E07DD214D01CD5F0121D0072B,D1 
1200 '7CB520FB1600AF5FDD214D01CD5F0121D0072B7CB520FB10,68 
1210 'D6CDD99B21F791CDD498CD419B28FBCD419B20FBC3439058,77 
1220 '4047414D4520204F56455200AF32989D32999D329A9D32A6,95 
1230 '9DAF676F32B39D32959D22969D329D9D22A79D32A99D22AC,75 
1240 '9D32AE9D21010122AA9D3E7032A39D3E2332A49D32A59D21 ,2F 
1250 'B49F11B59F01500036FFEDB03EFE3204A0C92125A01126A0,73 
1260 '017F023600EDB021A4961 125A03E06012000EDB001 100009, A2 
1270 '3D20F421C4971105A1012000EDB021F4971125A23E040120,29 
1280 '00EDB0011000093D20F4DD212E930608C5DD6E00DD23DD66,28 
1290 '00DD23DD5E00DD23DD5600DD23CD6E93C110E52125A01100,E9 
1300 '78018002CD5C0021B49D11B59D013F013600EDB021C49611,99 
1310 'B49D3E06011000EDB0012000093D20F4^iE49711249E0110,3E 
1320 '00EDB021F49D06407EF640772310F9DD214E933E08DD6E00,5C 
1330 'DD23DD6600DD23DD5E00DD23DD5600DD23011000EDB03D20,BC 
1340 'E421149811B49E3E04011000EDB0012000093D20F4C925A0,0D 
1350 '45A145A025A165A085A185A065A1A5A0C5A1C5A0A5A1E5A0,C2 
1360 '05A205A1E5A1B49D449EC49D349ED49D649EE49D549EF49D,B0 
1370 '849E049E749E149EA49E249E949ED5EB01100009EBCD7D93,60 
1380 'D1CD7D93C90610C54E0608CB011F10FB122313C110F1C9CD,44 
1390 ' 369BFE032805FE072B1DC9CD419B0604200206073AA39D80 ,EE 
1400 'FEE138023EE032A39D3E0832A99DC9CD419B06FC200206F9,FC 
1410 '3AA39D80FEE13801AF32A39DAF32A99DC916003AA99D5FED,05 
1 420 ' 4BA39D06A02E02C526027BCD6A9B 1 47BC604CD6A9B1 4 1 C79 , 6> 
1430 'C6104F2520ECC178C610472D20E121AC9F010800097EFEFE,D2 



1 440 ' 2822FEFF28F306 1 0FE033809060DFE063803AF06 1 3802323 , 9A 

1450 '4E23462B2B2BCD6A9B1418D506D9CD6A9BC921AC9F110800,0A 

1460 '197EFEFEC8FEFF28F4237E34116394CD519B1A47FE882003,14 

1 470 ' 3506042B7E 1 1 8D94CD5 1 9B 1 A4FCD9F94C33594FDFDFDFDFD , B9 

1480 'FDFDFDFDFEFEFEFEFEFEFFFFFFFF00000001010101020202,EE 

1490 '02020203030303030303030388010203FFFEFD010203FFFE,AC 

1500 'FD010203FFFEFD2323798677FEF1300C237886772BFEC130,96 

1510 '0B2B2BC92B2B36FFC92B2B7E36FFFE06D0E53E01CD199AAF,AB 

1520 'CD099CE1C921A49D7EB728033D77C9237E2B773EFFCDCE9A,10 

1530 'FE0AD8F53E02CD099CF1FEC8301EE*01200C3E03CDCE9A47,5C 

1540 '0E00CD2C95C93E03CDCE9AC603470EF8CD2C95C9E601200E,55 

1550 '3E03CDCE9AC606470E00CD2C95C93E03CDCE9AC609470EF0,78 

1560 'CD2C95C921AC9F110800197EFEFEC8FEFF20F47023360023,34 

1570 '71233630C9ED4BA39D06A0111F1FCD619B112F2F21AC9F3E,12 

1 580 ' 08CD4C9B7EFEFEC8FEFF28F323237996BB30077B23962BBA , 73 

1590 '38042B2B18E12B2B7E36FFFE063802180EE53E01CDC2993E,82 

1600 '01CD099CE118C8E53E01CD199AAFCD099CE118BB2AA79D23,3E 

1610 '22A79D1 10002B7ED52C021000022A79D3AA59DFE122809FE ,71 

1620 '0F280B3D32A59DC93E0F32A59DC93E1232A59DC921989D11 ,3A 

1630 '50C80E06CDE99821959D1 198C80E06CDE998219D9D1 1D0C8 ,A4 
1640' 0E02CDE998C9 1 60 1 CDF995 1 602CDF995C92 1 FA003EFFCDCE , C8 

1650 ' 9A4F3EC0CDCE9A477ACD 1 2962B7CB520EBC9F5C5E56069CB , B5 

1660 '3CCB1D06F03806060F878787874FCD7401A0B1CD7701E1C1 ,52 

1670 ' F 1 C9F5C5E5F33A87004F0CAFED793E90ED790C2 1 05A006 10,19 

1680 '7EED79237EED792310F6FBE1C1F1C921AA9D35201836083A,B8 

1 690 ' AC9D3CE68F32AC9DFE083B045F3E0F93F6 1 03207A02 1 AB9D , BE 

1 700 ' 35C0360D3AAD9D3CE60F32AD9DFE0838045F3E0F93070707 ,FF 

1710 ' 07E6F0F60 1 3209A0C9F52 1 A39634CD329CF 1 C9C400000000 , 1 4 

1 720 ' 000000000001 03030303000F0000000000000000FBFEFFFF , 1 

1730 'FEFE02FC00000000000000000787070707070707E0E03010,32 

1740 '101 000000000003CFFFFFFFF000000000F 1 B330000000000 , B5 

1 750 ' 0080C0C00C0C0C0C0C0C0C000000000707070797 1 F7F7F7F , 1 3 

1760 ' 3F000000003F7FFFFFFF7F00FFFFFFFFFF03000000F0FFFF , 65 

1 770 ' FFFFFE00070707070707000080070707070707003FCFF3FC ,4D 

1780 ' FFFFFF3F0700FFFFFFF80000C0C0C0800080C0E0F07898E0 ,F8 

1 790 ' 000000000707070707070707070707070707000000000000 ,62 

1800 ' 0000000000000000030300000000000000000307797E7FFF ,85 

1810' FEFE02000000000000000808080808080808080000000000 ,46 

1820 '0000F8FFFFFFC31C1F1F3FFF00000000000000E0C0E0F0F8 ,B8 

1830 ' 78BCDCDC000000000000080808080808080808083F0F0300 ,8D 

1840 ' 000000000000000000000000DEDEDEBE7E3E 1 E0E06020204 , 4E 

1850 ' 0CF800000808080808080808080808080808000000000000 ,74 
I860' 00000000033E7CFDFDFD780030 1 8 1 838286858909030F8FC , F0 

1 870 ' FCFCF8700C0C0C0C0C0C0C0C0C0707070707070700003C7E , B7 

1 880 ' FFFFFFFFFFFF7F7F2F37 1 B0EC080B87EFEFFFFFFFFFFFEFE , F2 

1890 ' FEFCFC700909070787070707070707070707070700000000 ,DA 

1 900 ' 0000000 1 030E39077F7F 1 F000E1 C38385858D8B878F0F0E0 , 8 1 

1910 'E0C000000C0C0A0A0A0A0A0A0A0A0A0A0A0A0A0003060F1B,6D 

1920 ' 7FDDFF60790F0 1 030F 1 F 1 F07C0E0B8FCE ABFFDEF3820C0C0 , 5C 

1930 'C0C080000B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B00001701 ,C8 

1940 '710111011101110126027101170141016106110311045201 ,7F 

1950 '600277075E2356237E23B7C8FE0128F4CD0C997BC6085F18,47 

1960 'EF7EE60FC630CD0C997BD6085F0DC87E0F0F0F0FE60FC630,FC 

1970 ' CD0C99237BD6085F0DC818DDF5C5E567E61F0707076F7CE6 ,08 

1980 'E00F0F67CD5D993A07004F0C3E20F3ED793E91ED790C0CAF,77 

1990 '0601ED69ED79ED61ED41ED59ED79ED513AF6FAED79AF0608,76 

2008 ' ED4 1 ED79ED4 1 ED79ED79ED793ED0ED79FBE 1 C 1 F 1 C93A0700 , 00 

2010 '4F0C3E02F3ED793E8FED793A06004F0CED78F53A07004F0C,BB 

2020 'AFED793E8FED79FBF1E60120D8C9AF180A3E0118063E021B,62 

2030 '023E0332F6FAC9061F3E001810063F3E01180A065F3E0218,1C 

2040 '04067F3E0332F5FA7832E1F33A«7004F0CF3ED413E82ED79,4C 

2050 'FBC9C5D5E521949DB7CD149A3E00CD149A3E00CD149A7E21 ,D8 

2060 '9A9DBE3819ED5B959D280777ED53989D180C2A989DB7ED52,54 

2070 '3004ED53989D2A969DED5B9B9DB7ED52380E219A9D3E05B7,14 

2080 'CD149A3E00CD149AE1D1C1C9238E2777C9219D9D862777C9,D0 

2090 'AF1100000E080620C5F5D5CD449AD17BC6085FF13CC110F0,9D 

2100 ' 0B7AC608571E00080D20E3C9D526006F292929ED4B040009 ,D0 

2110 '1125A00608C57E4F0604AFCB213002F6F0CB213002F60F12,68 
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SHORT PROGRAM ISLAM 



folXDUb&ttZ: 



100 CLEAR 200,&HBFFF 

110 SCREEN 1,2:WIDTH 32:KEY OFF 

120 COLOR 15,1,1 rDEFINT A-Z 

130 PRINT "WAIT..." 

140 I=&HC000:L=1000 

150 B=0:FOR J=0 TO 7 

160 READ A*: IF A*="END" THEN 230 

170 C=VAL("&H"+A*) 

180 POKE I+J,C:B=B+C:NEXT J 

190 READ A*:CH=VAL<"&H"+A*> 

200 IF B MOD 256 OCH THEN 250 

210 PRINT CHR*<11) ;CHR*<31> ;L 

220 1=1+8 :L=L+10:GOTO 150 

230 DEFUSR=&HC000 : CLS : A=USR ( 9 ) 

240 END 

250 PR I NT "Error in" ;L 

260 END 

1000 DATA C3,A3,C5,D4,D4,D4,D4,D4,4F 

1010 DATA D4,D4,D4,D4,D4,D4,D4,D4,A0 



2120 ' 1310EF23C1 10E6D1CB3ACB1B2125A03A07004F3E0808EBCD ,24 
2138 '7101 EB0604EDB33E8B835F300 1 1 4083D20EBC9F5D5C50608 , A2 
2140 'EB21000029CB27D2A39A1910F7C1D1F1C9D5C516005F0100,B2 
2150 '003E1008AFCB21CB1029CB127A93DAC39A5703083DC2B39A,C4 
2160 '7A6069C1D1C9D9082A939D11093DCDF29A2B22939D6C2600,9B 
2170 '0816005FB72004ED53939DCDF29A7CD9B7C9444D2100007A,22 
2180 'B7C4FD9A7B29173001092917300109291730010929173001 ,6C 
2190 '092917300109291730010929173001092917D009C9E3F5D5,06 
2200 ' 87856F300 1 245E2356EBD 1 F 1 E3C9 AFCDD500B7C03CCDD500 , A6 
2210 'C9AFCDD8003CC8CDD8003CC9856FD024C9835FD014C9814F,DB 
2220 ' D004C9E5B7ED52E1C9F578824779B34FF1C9F5C5D5E52676 ,6D 
2230 'CB22CB226A87875F057908F33A07004F0C7CE6C00707ED79 ,5C 
2240 ' 3E8EED79ED697CE63FF640ED790DFB08ED4 1 00ED7900ED59 , AF 
2250 ' 26006B29290 1 B49D09EB6C260029290 1 007409F33A07004F , 0E 
2260 ' 0C7CE6C00707ED793EBEED79ED697CE63FF640ED790DFBEB ,5A 
2270 '061 0EDB3E 1D1C1F1C91 60006DACD6A9B 1 4CB6A28F6C9F3AF , 7D 
2280 '329E9D3D32A19D3E0332A29DFB3E071EBFCD93003E081E00.AD 
2290 ' CD93003CFE0B20F8C9F5E5C5F32 1 A 1 9DB728053DBE30 1 63C , D8 
2300 '772B2B2B36028706004F21799C094E2346ED439F9DFBC1E1 ,0B 
2310 ' F 1 C92 1 A29D35C036033A9E9DB7C83D28 1 B329E9D3D32A 1 9D , CE 
2320 '3E071EBFCD93003E081E00CD93003CFE0B20F8C92A9F9DAF ,81 
2330 ' 5ECB93003C23FE0B20F67EB7200523229F9DC93E01329E9D ,8C 
2340 ' C97F9CBB9CEB9C6B008F00AA0000B80F0E0E006B008F00AA , ED 
2350 ' 0000B80F0E0E0039006B008F0000B80F0E0E0039006B008F ,2C 
2360 '0000B80F0E0E0039006B008F0000B88F0E0E01D6000000D6,A6 
2370 ' 0000B80E0D0F006B000000CA0000B80E0D0F00D600D600BE , 63 
2380 '0000B80E0D0F006B00CA00B40000B80E0D0F012600000000,D4 
2390 ' 0000B80F00000028000000000000B80F0000002A00260000 ,06 
2400 ' 0000B80F0F00002D002800000000B80F0F0A0030002A0026 ,8B 
2410 '0000B80F0F0F0032002D00280000B80F0F0F00350030002A,E0 
2420 ' 0000B80F0F0F00390032002D0000B80E0F0F003C00350030 ,02 
2430 ' 0000B80E0F0F0040003900320000B80D0E0F0043003C0035 ,25 
2440 ' 0000B80D0E0E0047004000390000B80D0D0E004C0043003C , 4C 
2450 '0000B80D0D0D0050004700400000B80C0D0C019014060000,3E 



1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 

1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 

1200 

1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 

1300 

1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 
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SHORT PROGRAM ISLAND 



2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 

3000 

3010 
3020 
3030 
3040 
3050 
3060 
3070 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



C4 


,DD 


»7E 


,01 


,3C 


,D6 


,F0 


,D2 


»F4 


04 


C5 


,C6 


F0 


,DD 


.77 


,01 


,C3 


97 


04 


,C5 


,FE 


,07 


,C2 


04 


,C5 


,DD 


,36 


7E 


01 


,3D 


CA 


,04 


C5 


,DA 


,04 


2D 


C5 


,DD 


.77 


,01 


,C9 


CD 


,7C 


,C2 


EE 


C9 


C5 


DD 


21 


,03 


C0 


»21 


,83 


F3 


CI 


,FD 


.21 


,83 


,C0 


06 


,20 


,11 


59 


08 


00 


,DD 


7E 


00 


D6 


,D4 


,CA 


D7 


32 


,C5 


,23 


,23 


,DD 


23 


,DD 


,23 


,3D 


DD 


23 


DD 


23 


FD 


19 


10 


,EA 


10 


3E 


»FF 


,C1 


,C9 


,21 


03 


,C0 


, 1 1 


BC 


00 


IB 


01 


80 


00 


CD 


5C 


,00 


C5 


C9 


,3E 


,C1 


,DD 


»77 


00 


3E 


,0F 


69 


DD 


77 


03 


3E 


08 


DD 


77 


,02 


F3 


AF 


FD 


» 77 


00 


C9 


FD 


7E 


,00 


67 


3C 


3D 


C2 


8D 


C5 


3A 


D0 


,C1 


58 


3C 


3D 


C0 


3A 


,D5 


CI 


D6 


,05 


E4 


C8 


CD 


A7 


C2 


3A 


CE 


CI 


,3C 


03 


3D 


CB 


F5 


21 


,4E 


C2 


CD 


,16 


0E 


C2 


Fl 


32 


D0 


CI 


FD 


77 


,00 


EA 


3A 


03 


C0 


DD 


.77 


00 


3A 


,04 


8F 


C0 


DD 


77 


01 


C9 


DD 


7E 


,00 


39 


D6 


08 


DA 


99 


C5 


DD 


77 


,00 


6A 


C9 


AF 


FD 


77 


00 


3E 


D9 


,DD 


E0 


77 


00 


C9 


CD 


23 


C7 


CD 


,66 


2A 


C2 


F3 


21 


9F 


FD 


11 


70 


,C8 


BB 


01 


05 


00 


ED 


B0 


21 


30 


,C7 


BB 


11 


9F 


FD 


01 


05 


00 


ED 


,B0 


50 


FB 


31 


00 


A0 


CD 


DF 


CI 


,21 


5A 


76 


C7 


11 


01 


18 


01 


05 


,00 


6D 


CD 


5C 


00 


CD 


B5 


C3 


CD 


,09 


44 


C5 


11 


C7 


C4 


73 


23 


72 


CD, 


36 


B2 


C4 


CD 


09 


C5 


11 


55 


,C5 


3C 


73 


23 


72 


CD 


41 


C5 


CD 


,09 


Bl 


C5 


CD 


D4 


C2 


3A 


DA 


CI 


,47 


44 


87 


87 


32 


DB 


CI 


C5 


CD 


,09 


77 


C5 


»H 


00 


C3 


73 


23 


72 


,16 


B7 


18 


CD 


DA 


C2 


CD 


09 


C5 


11 . 


2D 


00 


C3 


73 


23 


72 


16 


28 


,CD 


D6 


DA 


C2 


CD 


09 


C5 


11 


00 


C3, 


0B 


73 


23 


72 


16 


38 


CD 


DA 


,C2 


BF 


CD 


09 


C5 


11 


00 


C3 


73 


23, 


05 


72 


16 


08 


CD 


DA, 


C2 


CI 


,10, 


CA 


C4, 


AF 


32 


D0 


CI, 


32 


Dl 


CI , 


FA 


DD 


21 


03 


C0 


FD, 


21 


83 


C0, 


22 


llj 


83 


CI , 


06. 


20, 


D5 


C5 


DD, 


F2 


E5 


FD 


E5 


13 


1A, 


3C, 


CA 


66, 


60 


C6, 


IB, 


D5, 


1A, 


6F, 


13, 


1A 


67, 


D3 


01 


66 


C6 


Dl 


C5, 


E9, 


FD 


El ^ 


8A 


DD, 


El. 


01, 


04, 


00, 


11 ! 


08 


00, 


DC 


DD 


09 


FD 


19 


CI , 


Dl , 


13 


13, 


B4 


10 


D3 


3A 


D5, 


CI , 


D6 


05 


CA, 


58 



3080 
3090 

3100 

3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



B9 


C6 


D2 


B9 


C6 


3C 


C2 


D6, 


C6 


3E 


01 


32 


DD 


CI 


21 


5E, 


C2 


CD 


16 


C2 


01 


89 


C2 


21 , 


83, 


CI 


71 , 


23 


70 


CD 


83 


C2, 


3E 


FF 


32 


D8 


CI 


3E' 


05 


32, 


D5 


CI 


21 


7C 


C7 


11 


2B 


19, 


01 


09 


00 


CD 


5C 


00 


C3 


06, 


C6 


CD 


A7 


C2 


3A 


CE 


CI 


3C, 


3D 


CA 


D6 


C6 


21 


86 


C7 


11 » 


2B 


19 


01 


09 


00 


CD 


5C 


00, 


CD 


DF 


CI 


C3 


CI 


C5 


3A 


DA, 


CI 


47 


3E 


04 


90 


CA 


EC 


C6, 


47 


11 


C8 


00 


IB 


7A 


B3 


C2, 


E4 


C6 


10 


F5 


3A 


DC 


CI 


3C, 


3D 


C2 


04 


C7 


3A 


DB 


CI 


3C, 


3D 


C2 


39 


C6 


3E 


FF 


32 


DC, 


CI 


C3 


39 


C6 


3D 


32 


DC 


CI , 


C2 


39 


C6 


CD 


22 


C7 


3A 


DA, 


CI 


3C 


32 


DA 


CI 


D6 


05 


C2, 


F4 


C5 


3E. 


04 


32 


DA 


CI 


C3, 


F4 


C5 


C9 


21 


90 


C7 


11 


00, 


38 


01 


E0 


00 


CD 


5C 


00 


C9, 


C3 


35 


C7 


00 


00 


F5 


C5 


D5, 


E5 


FD 


E5 


DD 


E5 


3A 


D8 


CI , 


B7 


CA 


56 


C7 


3A 


D8 


CI 


06, 


08 


E6 


01 


CA 


52 


C7 


3A 


DD, 


CI 


47 


78 


32 


06 


C0 


3A 


D8, 


CI 


B7 


CA 


61 


C7 


3D 


32 


D8, 


CI 


CD 


34 


C5 


F3 


3A 


D9 


CI , 


32 


06 


C0 


DD 


El 


FD 


El 


El, 


Dl 


CI 


Fl 


C3 


70 


C8 


53 


43, 


4F 


52 


45 


A0 


47 


41 


4D 


45, 


20 


4F 


56 


45 


52 


A0 


20 


20, 


20 


20 


20 


20 


20 


20 


20 


A0, 


00 


00 


00 


00 


00 


00 


01 


03, 


03 


03 


7F 


FF 


FF 


FF 


FF 


FF, 


00 


00 


00 


00 


00 


00 


80 


C0, 


C0 


C0 


FE 


FF 


FF 


>FF 


FF 


FF, 


00 


03 


07 


IF 


7F 


C4 


FF 


»FF, 


F0 


60 


00 


00 


00 


00 


00 


00, 


00 


80 


C0 


F0 


FC 


46 


FE 


FE, 


IE 


0C 


00 


00 


00 


00 


00 


00, 


01 


01 


03 


03 


03 


03 


03 


,03, 


07 


07 


07 


07 


0F 


0B 


01 


00, 


00 


00 


80 


80 


80 


80 


80 


80, 


C0 


C0 


C0 


C0 


E0 


A0 


00 


00, 


00 


0F 


07 


03 


0F 


0F 


0F 


0F, 


0F 


0F 


0F 


0F 


07 


07 


03 


01 , 


00 


E0 


C0 


80 


E0 


E0 


E0 


E0, 


E0 


E0 


E0 


E0 


C0 


C0 


80 


00, 


00 


00 


00 


00 


00 


01 


03 


07, 


03 


01 


00 


00 


00 


00 


00 


00, 
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3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



00,00 

80,00 

00,00 

07,03 

00,00 

80,80 

00,01 

07 , 07 

00,00 
C0,C0 

20,08 
END 



,00 ,00,00 
,00',00,JZI0 
,00,01 ,01 
,01 ,01 ,00 
,00,00,00 
,00,00,00 
,01 ,11 ,09 
,09,11 ,01 
,00,10,20 
,20,10,00 

,3A,D4,41 



,00,80 
, 00 , 00 

,03,07 

,00,00 

,80,C0 

, 00 , 00 

,07,07 

,01 ,00 
,C0,C0 
, 00 , 00 

,E6,01 



,C0,40 

,00,80 

,1F,2B 

,00,0C 

,F0,30 

,00,00 

,7F,A9 
,00,2A 
,FC,AC 

,00,B0 

,28,86 




EST 



100 ' EST by M.Akimoto 

110 CLEAR 256, S<HD000: COLOR 15 , 1 ,0 : SCREEN 

2,3,iZi:DEFINT A-X :A=RND (-TIME/3) :OPEN "G 
RP:" AS #1 

120 FOR 1=2^0000 TO ?<HD0E2:READ A*:A=VAL 
( " 2<H " +A* ) : POKE I , A : S=S+A : NEX T : I F S < >2 1 2 1 
8 THEN PRINT "Data Error! ":END 
1 30 DEFUSR0=S<HD000 : DEFUSR 1 =S<HD035 : DEFUSR 
2=S<HD06C :DEFUSR3=2<HD0CE 
140 ' Character Making 
150 FOR 1=0 TO 2 ".READ X , Y :PSET (X , Y ) 
160 READ X,Y:IF X >0 THEN LINE- ( X , Y ) , 10 :S 
OTO 160 

170 PAINT(-X,Y> ,10:NEXT 
180 FOR 1=0 TO 1 :FOR .3=0 TO 7:R0R K=0 TO 

1 :FOR L=0 TO 7 
190 A=I*512+J*8+K*256+L:VP0KE S<H3800+I*1 
2B+J*16+K*8+L , VPEEK (A+128) - ( VPEEK (&H2080 
+A) MOD 16>1)*255:NEXT:NEXT:NEXT:NEXT 
200 SCREEN 1:WIDTH 32:KEY OFFrFOR 1=0 TO 

31 :READ A$ :A=VAL ( "?<H"+A*) : VPOKE I +64, A: 
VPOKE ?<H700+I ,A:VPOKE S<H740+I , A : VPOKE ?<H 
780+1 ,A : VPOKE 2<H7C0+I ,A :NEXT 
210 FOR I=S<H201B TO &H20iFsREAD A*:VPOKE 

I ,VAL< ,, 2 < H"+A$) :NEXT 
220 A*=CHR* (31) +CHR* ( 29 ) +CHR* ( 29 ) : A* < 0.) = 
"£t;"+A*+"-DT" :A*<l)="Wr+A*+"l;Hr :A*<2)="df 
t;"+A*+"Wfe" :A*(3)="^^"+A*+"^'" 
230 ' Demonstration 

240 CLSrFOR 1=0 TO 1 :FOR' J=© TO 3:PUT SP 
RITE I*4+J, <64+J*32, 64+1*32) ,10:NEXT:NEX 
T:X=0 

250 X=(X+INT(RND(l)*15)*2+2) MOD 32: IF V 
PEEK<kH1800+X)<S<HC0 THEN LOCATE X,0:C=RN 
D(1)*4:PRINT A*(C) 

260 IF STRIG(0)=0 THEN U=USR<0) -.GOTO 250 
270 ' Start 



280 Y=0:L=0:R=1 :M=10:N=24 

290 CLS:FOR 1=0 TO 1 :FOR J=0 TO 3: PUT SP 
RITE I*4+J, (112+J*32, 1*32-1) ,10:NEXT:NEX 
T 

300 LOCATE 16, 9: PRINT "HIGH SCORE" :LOCAT 
E 16,10 :PRINT Z : LOCATE 16,l'2:PRINT "SCOR 
E":LOCATE 16,13:PRINT Y 

310 LOCATE 16,15:PRINT "LINES" rLOCATE 16 
,16:PRINT L:LOCATE 16,19:PRINT "NEXT" 
320 FOR 1=0 TO 23: LOCATE 2,1: PR I NT "DDOD 
DnnDDnnn" ; :NEXT:LOCATE 5,23:PRINT "VDBDN 
DM";:LOCATE 4, 10 .-PRINT USING "ROUND ##" ; 
R 

330 PLAY"T200L8M8192S0O3C4CCD#CO2A#G4A#4 
03C4" , "T200LSS0O2C4CCD#CO1A#G4A#4O2C4 
340 IF PLAY(0) THEN 340 

350 FOR I=21-M*2 TO 21 : LOCATE 4,1: PRINT 
SPC(8) :NEXT 

360 FOR 1=0 TO 3:A(I)=0:NEXT 
370 C=RND(1)*4 
380 ' Main Routine 
390 LOCATE 17 ,21 :PRINT A* (C) 
400 B*=INKEY* :K=INSTR ( "BNMVbnmW^rA:J= tt" 
,B*) :IF K=0 OR B*="" THEN 400 
410 K=K MOD 4:X=K*2+4:U=USR1 (X) :LOCATE 1 
7,21 .-PRINT " ";A*;" ":IF A(K)=M THEN 4 
90 

420 A ( K ) = A ( K ) + 1 : U=USR 1 ( X ) : U=USR 1 ( X ) : LOC A 
TE X,20:PRINT A* (C) ; :C=RND ( 1 ) *4 
430 U=USR(0) :U=USR2(0) :IF U=0 THEN 460 
440 FOR 1 = 1 TO 10: VPOKE &H2001 ,255 :FOR J 
= 1 TO 20:NEXT:VPOKE ?<H2001 , 17 :FOR ..7=1 TO 

20:NEXT:NEXT 
450 F=0:FOR 1=0 TO 3 :A ( I ) =A ( I ) -U :NEXT :L= 
L+U:Y=Y+10-'-(U-(F=4) )*R:U=USR3(0) :IF Y>Z 
THEN Z=Y 

460 U=USR(0):IF U THEN 460 

470 LOCATE 16 , 10 : PRINT Z : LOCATE 16,13:PR 
INT Y:LOCATE 16,16:PRINT L 

480 IF L>N THEN R=R+1 :M=M+ (M>6) :N=N+25 :G 
OTO 320 ELSE 390 
490 1=0 

500 IF A(IXM THEN U=USR (0) :GOTO 390 
510 1 = 1 + 1 :IF I<4 THEN 500 
520 FOR 1=0 TO 23:L0CATE 2,I:PRINT "DDOD 

ananannn" ; :NEXT 

530 LOCATE 4,10:PRINT "THE END" 

540 PLAY "T160M8192S0L8O4DDDR8AAAR8GFEDC 

4 . " , "T160S0L8O3DDDR8O2AAAR8GG#ABO3C4 . " , " 

T 1 60S0L8O2DDDR8O 1 AAAR8GG# AB02C4 . 

550 IF STRIG(0)=0 THEN 550 

560 IF STRIG(0) THEN 560 ELSE 240 

570 DATA 21 ,E0,1A,11 ,20,00,4A,2B,7C,FE,1 

8, 38, 23, CD, 4A, 00 

580 DATA FE,E0,38,F3,19,08,CD,4A,00,A7,F 

A,2C,D0,0E,01 ,08 

590 DATA CD,4D,00,A7,ED,52,AF,CD,4D,00,1 

8, DB, ED, 52,18,07 



184 S-B-h'?Of5A'7^9VF 



SHORT PROGRAM ISLAND 



680 DATA 79,32,FB,F7,C9,3A,F8,F7,26,18,6 

F,ll ,20,00,06,15 

610 DATA 19,CD,4A,00,2C,4F,CD,4A,00,A7,E 

D,52,08,CD,4A,00 

620 DATA FE,DB,20,03,2D,18,09,08,CD,4D,0 

0,2D,79,CD,4D,00 

630 DATA 19,10,DD,AF,CD,4D,00,2C,CD,4D,0 

0,C9,21 ,44,18,11 

640 DATA 00,0A,CD,4A,00,FE,E0,38,42,4F,2 

C,2C,CD,4A,00,A9 

650 DATA 20,39,2C,2C,CD,4A,00,A9,20,31 ,2 

C,2C,CD,4A,00,A9 

660 DATA 20,29,7D,D6,06,6F,3E,08,06,04,C 

D,4D,00,2C,3C,CD 

670 DATA 4D,00,2C,3D,10,F4,7D,C6,18,6F,3 

E,0A,06,04,CD,4D 

680 DATA 00,2C,3C,CD,4D,00,2C,3D,10,F4,1 

C,7D',C6,40,30,01 



690 
2,F8 

700 
D,00 

710 
720 
730 
740 
750 
760 
770 
780 
790 

800 

810 
820 
830 
840 



DATA 24 ,E6 ,C0 ,C6 ,04 ,6F , 15 ,20 , A9 ,7B ,3 

,F7,C9,21 ,00 

DATA 18 ,CD ,4A ,00 ,FE ,20 ,30 ,04 ,AF ,CD ,4 

,23,7C,FE,1B 
DATA 20,EF,C9 

' Demonstration 

DATA 128,6,149,0,139,10,153,11 
DATA 146,18,157,24,135,31 ,128,6 
DATA -141 ,16,148,9,161 ,18,151 ,29 
DATA 175,20,165,10,171 ,0,148,9 
DATA -163 , 15 , 167 ,0 , 175 ,7 , 1 77 ,31 
DATA 183,10,191 ,3,167,0,-179,15 

' Character 

DATA FF , FF , EA , D5 , EA , D5 , E A , D5 



DATA FF,FE 
DATA EA,D5 
DATA A8,50 



DATA 8A,32,54,98,FE 



A8,50,A8,50,A8,50 
EA,D5,EA,D5,C0,80 
A8,50,A8,50,00,00 
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1000 CLEAR 500, &HD000: DEFINT A-Z : SCREEN 5: VDP(9 

)=VDP(9)0R2: SET PAGE 0, 

1010 DIM V<5) : J=0 

1020 XS=16: YS=16: XW!=XS/2: YW!=YS/2: BC=PEEK (&HF3 

EA) : PI#=ATN(1>*4 

1030 PI#=ATN(1>*4: V1#=4*2/256*PI# : V2#=5*2/256*PI# 

1040 I = 

1050 V(0)=128: V(l)=128: V(2)=0: V(4)=XS*4: V<5)=YS 

1060 FDR Y = TO 15 

1070 LINE ( 128, 128 > - STEP ( XS*4-1 , YS-1 ), EC 

, BF,PSET 

1080 FOR S = TO 3 

1090 T=Y*16+S*4: X9 = XW ! : Y9 = YW ! 

1100 FOR U = 1 TO 4 

1110 T=T+1 

1120 X8 = SIN<T*Vl#)*(XW!-l)*U/4+XW! : Y8 = CO 

S (T*V2#) * ( YW ! -1 ) *U/4+YW ! 

1130 LINE ( X9+XS*S+128, Y9+128 ) - ( X8+XS*S 

+128, Y8+128 ), 5, , PSET 



V(3)=256*S: VC4) 



Y6 = 256-Y7 



V(2)=X7: V(3)=256*S 



V(5 



V(3)=Y6+256*S: V(! 



1140 X9 = X8: Y9 = Y8 

1150 NEXT U 

1160 NEXT S 

1170 V(3)=I*YS: 60SUB 1450 

1180 I = (I+7)M0D16 

1190 NEXT Y 

1200 ' 

1210 FOR S = 3 TO 1 STEP -1 

1220 V(0)=XS*S: V(1)=0: V(2)=0: 

XS: V(5)=256: GOSUB 1450 

1230 NEXT S 

1240 ' 

1250 I = 5: V(0)=0: V(4)=XS 

1260 FDR X = 1 TO 15 

1270 Y7 = I*YS: X7 = X*XS: 

1280 FOR S = TO 3 

1290 V(1)=Y7+256*S: 

)=Y6: GOSUB 1450 

1300 V(1)=256*S : 

)=Y7: GOSUB 1450 

1310 NEXT S 

1320 I = <I+5)M0D16 

1330 NEXT X 

1340 ' 

1350 RESTORE 1410 

1360 FOR I=?(HD000 TO 8<HD034 : READ A*: POKE I, VAL < " 

s<h"+A*) : NEXT I 

1370 POKE S<HD000, 7*XS 

1380 DEFUSR-&HD001 

1390 A=USR(0> 

1400 END 

1410 DATA 00,FB, 11 ,00,00, 7B,3C,FE,04,20,06,3A,00,D0 

,82,57 

1420 DATA AF,5F,0F,0F,0F,F6,1F,F5,14,21 ,9E,FC,7E,C6 

,04, BE 

1430 DATA 20,FD,F1 ,0E,02,47,CD,47,00,0E,17,42,CD,47 

,00, CD 

1440 DATA B7,00,30,D1 ,C9 

1450 ' 

1460 A = VARPTR(V(0)) 

1470 FOR J = TO 11: VDP<33+J> = PEEK (A+J) : NEXT J 

1480 VDP(46) = 0: VDP(47) = ?<HD0 

1490 RETURN 
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